home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / parimutuel racin (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  107 lines
  1. 1 ifa>.then6
  2. 2 poke53280,.:poke53281,.:poke53272,23
  3. 3 printchr$(142)"[147] [212]he horses slowly approach the gate...
  4. 6 [139]a[178].[167]a[178]1:[147]"racing.fnt",8,1
  5. 7 [139]a[178]1[167]a[178]2:[147]"racing.wrd",8,1
  6. 8 [151]53272,([194](53272)[175]240)[176]14:[141]60100:[151]55,255:[151]56,55:[156]
  7. 9 sp$[178]"                                      ":[134] w(9)
  8. 10 s1[178]1064:sw[178]40:v[178]10:f6[178]55296:[153]"load":am[178]5000
  9. 20 vv[178]54296:ww[178]54276:aa[178]54277:hf[178]54273:lf[178]54272:ph[178]54275:pl[178]54274 :s[178]54278
  10. 30 s$[178]"and":f$[178]"usr":[129] t[178]1[164]sw[171]v[170]1:a$[178]a$[170]s$:b$[178]b$[170]f$:[130]
  11. 40 [140]:a[178][187]([171]ti)
  12. 41 [129]t[178]1[164]9:b(t)[178][181]([187](1)[172]5)[170]2:ta[178]ta[170]b(t):m(t)[178]0:[135]n$(t):[130]
  13. 42 [153]"load     p  a  r  i - m  u  t  u  e  l"
  14. 43 [153]"";:[129]a[178]1[164]3:[153][163]5)"                              ":[130]
  15. 44 sc[178]1024[170]45:[141]9000
  16. 45 [153]"          by  dean s. rossa"
  17. 47 [153]"sys        *** place your bets ***"
  18. 50 [153]"     horse            odds      wins "
  19. 60 [129]t[178]1[164]9:[153][163]3)""t;"cont"n$(t)[163]19)[181](ta[173]b(t));[163]23);"to cont1";
  20. 63 [153][163]32)w(t):[130]
  21. 65 [153]" press 0 to quit."
  22. 70 [153]" on which horse would you like to bet?"
  23. 75 [161]a$:[139]a$[179]"0"[176]a$[177]"9"[167]75
  24. 76 [139]a$[178]"0"[167][141]60000:[137]70
  25. 77 h[178][197](a$)
  26. 78 [153]"ononon";:[129]a[178]1[164]4:[153]sp$:[130]
  27. 80 [153]"onononenter 0 to re-choose a horse."
  28. 82 [153]" you have $"am"cmd."
  29. 85 [153]" enter your bet:       cmdcmdcmdcmdcmdcmdcmd";:[141]60500:b[178][197](b$)
  30. 86 [139]b[177].[175]b[179][178]am[167]90
  31. 87 [139]b[178].[167][153]"ononon";:[129]a[178]1[164]4:[153]sp$:[130]:[137]65
  32. 88 [153]" invalid amount!on":[129]a[178]1[164]2000:[130]:[153]"                onon":[137]85
  33. 90 [153]"loadverify ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  34. 92 [129]a[178]1[164]9:[153]" (NULL)"[166]29)"stopspc( spc(verify(NULL)"a:[130]
  35. 94 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  36. 95 [153]""[163]32)"fcmdicmdncmdicmdscmdh"
  37. 97 am[178]am[171]b
  38. 100 wc[178][181]([187](1)[172]9)[170]1:b(wc)[178][181]([187](1)[172]3)[170]5 :[129]a[178]s1 [164]s1[170]8[172]sw [169] sw
  39. 110 i[178]i[170]1:a(i)[178]a:[151]a,28:[151]a[170]f64[171]1024,28:[151]a[171]1024[170]f64,0:[130]
  40. 120 [129] t[178]1[164]14:[151]vv,15:[151]aa,88:[151]ph,15:[151]pl,15:[151]s,89
  41. 130 [135]hi,lo,fe:[151] hf,hi:[151]lf,lo:[151]ww,65:[129]q[178]1[164]fe:[130]:[151]ww,64
  42. 140 [130]t:b[178][182](b):[153]"you bet"b"on horse cont#" h"- "n$(h)"."
  43. 145 [153]"clr          and they're off!"
  44. 150 x[178][181]([187](1)[172]9)[170]1 :c[178]b(x)[173]2:z[178]1024:[139] m(x)[178]0[167][151]a(x)[170]1,32
  45. 160 a(x)[178]a(x)[170]c:[151]a(x),28:[151]a(x)[171]z[170]f6,28:[151]a(x)[171]z[170]f6,0
  46. 170 m(x)[178]m(x)[170]c:[151]a(x)[171]c,32:[151]a(x)[171]c[171]z[170]f6,32:[139] m(x)[177][178]sw[171](v[171]1)[167]200
  47. 180 [129]t[178]1[164]3: [151]vv,15:[151] hf,40 :[151]lf, 200:[151]ww,129 :
  48. 190 [129]tt[178]1 [164] 10[172]kk: [130]:[151]ww,0:[151]aa,0:[130] : [137]150
  49. 200 [153]"#"x;n$(x);" is the winner.":wl$[178]"lost":mm[178]b:w(x)[178]w(x)[170]1
  50. 205 [139]x[178]h[167]am[178]am[170]b:w[178][181](ta[173]b(x))[172]b:wl$[178]"won":am[178]am[170]w:mm[178]w
  51. 210 [153] "you "wl$" $"mm"on that race."
  52. 215 [153]"you now have a total of $"am"cmd."
  53. 217 [153]"        press space to continue."
  54. 220 [139][194](203)[179][177]60[167]220
  55. 230 i[178]0:ta[178]0:[139]am[177].[167]40
  56. 231 [153]"loadoh no! you blew all your money!!":[129]a[178]1[164]2000:[130]
  57. 232 [153]"good thing this is just a game ...":[129]a[178]1[164]2000:[130]
  58. 234 [153]"hold on while i re-fill your pockets...":[153]:[151]54296,15
  59. 236 [129]a[178]0[164]5000[169]50:[153]"on$"a:[151]54276,.:[151]54277,13:[151]54278,13
  60. 237 [151]54273,a[173]20:[151]54276,17:[130]:[151]54278,10:[151]54277,10
  61. 239 am[178]5000:[137]217
  62. 240 [131]scamp,junebug,beta bits,rocky,eight ball,pip,chutney,cheerio,sam
  63. 250 [131]16,195,150,22,96,150,28,49,150,33,135,150,33,135,50,33
  64. 260 [131]135,50,33,135,150,28,49,50,28,49,50,28,49,150,22,96,150,28
  65. 270 [131]49,150,22,96,150,16,195,150
  66. 9000 [129]a[178].[164]29:[151]sc[170]a,[194](49152[170]a)
  67. 9010 [151]sc[170]40[170]a,[194](49152[170]30[170]a)
  68. 9020 [151]sc[170]80[170]a,[194](49152[170]60[170]a)
  69. 9030 [130]:[142]
  70. 60000 [153]"on are you sure you want to quit? (y/n) "
  71. 60010 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]60010
  72. 60020 [139]a[178]39[167][153]"on                                      on":[142]
  73. 60030 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  74. 60040 [139]er[179][177]63[167][128]
  75. 60050 [153]"load":[151]53272,21:[151]55,.:[151]56,160
  76. 60060 [147] "hello connect",8
  77. 60100 [151]53280,1:[151]53281,1
  78. 60110 [153]"load(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$";
  79. 60120 [129]a[178]1[164]23:[153]"(NULL)"[166]38)"(NULL)";:[130]
  80. 60130 [153]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)cmdsavetan"
  81. 60135 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  82. 60140 [153]"         loadstar presents:"
  83. 60150 [153]"                                   "
  84. 60160 [153]"    p  a  r  i ! m  u  t  u  e  l  print# "
  85. 60170 [153]"                                   print# "
  86. 60180 [153]"                                   print# "
  87. 60190 [153]"                                   print# "
  88. 60200 [153]"                                   print# "
  89. 60210 [153]"                                   print# ":sc[178]1024[170]5[170]9[172]40:[141]9000
  90. 60220 [153]"            by  dean rossa         print# "
  91. 60230 [153]"                                   print# "
  92. 60240 [153]"            copyright \]^_         print# "
  93. 60250 [153]"                                   print# "
  94. 60260 [153]"                                    "
  95. 60270 [153]"        press space to continue"
  96. 60280 [139][194](203)[179][177]60[167]60280
  97. 60290 [142]
  98. 60500 [153]"to";:b$[178]"":[129]a[178]1[164]6
  99. 60510 [161]a$:[139]a$[178]""[167]60510
  100. 60520 [139]a$[178][199](13)[167]60580
  101. 60530 [139]a$[178][199](20)[175]a[177]1[167]a[178]a[171]1:[153]"cmdcmd  cmdcmdto";:b$[178][200](b$,a[171]1):[137]60510
  102. 60540 [139]a[178]6[167]60510
  103. 60550 [139]a$[177][178]"0"[175]a$[179][178]"9"[167]60570
  104. 60560 [137]60510
  105. 60570 [153]"cmd"a$"to";:b$[178]b$[170]a$:[130]
  106. 60580 [153]"cmd ":[142]
  107.